inherited fmBankExchange: TfmBankExchange
  Left = 299
  Top = 181
  Width = 846
  Height = 540
  Caption = 'fmBankExchange'
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 479
    Width = 838
  end
  inherited Panel1: TPanel
    Width = 838
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 668
    end
    inherited BitBtn2: TBitBtn
      Left = 756
    end
  end
  object cxMemo1: TcxMemo [2]
    Left = 8
    Top = 56
    Lines.Strings = (
      'cxMemo1')
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -7
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 2
    Height = 337
    Width = 825
  end
  object bOpen: TcxButton [3]
    Left = 112
    Top = 408
    Width = 89
    Height = 25
    Caption = #1054#1090#1082#1088#1099#1090#1100' '#1092#1072#1081#1083
    TabOrder = 3
    OnClick = bOpenClick
  end
  object bExchange: TcxButton [4]
    Left = 8
    Top = 408
    Width = 97
    Height = 25
    Caption = #1053#1072#1095#1072#1090#1100' '#1086#1073#1084#1077#1085
    TabOrder = 4
    OnClick = bExchangeClick
  end
  object od: TOpenDialog
    InitialDir = 'c:\'
    Left = 544
    Top = 56
  end
  object qBank: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT bp.*'
      'FROM BANK_PORUCH bp'
      'WHERE bp.BPID = -1')
    UpdateObject = quBank
    GeneratorField.Field = 'BPID'
    GeneratorField.Generator = 'GEN_BANK_PORUCH_ID'
    Left = 568
    Top = 168
    object qBankBPID: TIntegerField
      FieldName = 'BPID'
      Origin = '"BANK_PORUCH"."BPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qBankBPNAME: TIBStringField
      FieldName = 'BPNAME'
      Origin = '"BANK_PORUCH"."BPNAME"'
      Size = 255
    end
    object qBankBPNUM: TIntegerField
      FieldName = 'BPNUM'
      Origin = '"BANK_PORUCH"."BPNUM"'
    end
    object qBankBPDATE: TDateField
      FieldName = 'BPDATE'
      Origin = '"BANK_PORUCH"."BPDATE"'
    end
    object qBankBPSUMMA: TIBBCDField
      FieldName = 'BPSUMMA'
      Origin = '"BANK_PORUCH"."BPSUMMA"'
      Precision = 18
      Size = 2
    end
    object qBankBPPLATSCHET: TIBStringField
      FieldName = 'BPPLATSCHET'
      Origin = '"BANK_PORUCH"."BPPLATSCHET"'
      Size = 255
    end
    object qBankBPPOLUCHSCHET: TIBStringField
      FieldName = 'BPPOLUCHSCHET'
      Origin = '"BANK_PORUCH"."BPPOLUCHSCHET"'
      Size = 255
    end
    object qBankBPPLATINN: TIBStringField
      FieldName = 'BPPLATINN'
      Origin = '"BANK_PORUCH"."BPPLATINN"'
      Size = 12
    end
    object qBankBPPLAT1: TIBStringField
      FieldName = 'BPPLAT1'
      Origin = '"BANK_PORUCH"."BPPLAT1"'
      Size = 2048
    end
    object qBankBPPLATBIK: TIBStringField
      FieldName = 'BPPLATBIK'
      Origin = '"BANK_PORUCH"."BPPLATBIK"'
      Size = 255
    end
    object qBankBPPLATBANK1: TIBStringField
      FieldName = 'BPPLATBANK1'
      Origin = '"BANK_PORUCH"."BPPLATBANK1"'
      Size = 2048
    end
    object qBankBPPOLUCHINN: TIBStringField
      FieldName = 'BPPOLUCHINN'
      Origin = '"BANK_PORUCH"."BPPOLUCHINN"'
      Size = 12
    end
    object qBankBPPOLUCH1: TIBStringField
      FieldName = 'BPPOLUCH1'
      Origin = '"BANK_PORUCH"."BPPOLUCH1"'
      Size = 2048
    end
    object qBankBPPOLUCHBIK: TIBStringField
      FieldName = 'BPPOLUCHBIK'
      Origin = '"BANK_PORUCH"."BPPOLUCHBIK"'
      Size = 255
    end
    object qBankBPPOLUCHBANK1: TIBStringField
      FieldName = 'BPPOLUCHBANK1'
      Origin = '"BANK_PORUCH"."BPPOLUCHBANK1"'
      Size = 2048
    end
    object qBankBPNAZNACHPLAT: TIBStringField
      FieldName = 'BPNAZNACHPLAT'
      Origin = '"BANK_PORUCH"."BPNAZNACHPLAT"'
      Size = 2048
    end
    object qBankBPSTATUSSOST: TIBStringField
      FieldName = 'BPSTATUSSOST'
      Origin = '"BANK_PORUCH"."BPSTATUSSOST"'
      Size = 255
    end
    object qBankBPPLATKPP: TIBStringField
      FieldName = 'BPPLATKPP'
      Origin = '"BANK_PORUCH"."BPPLATKPP"'
      Size = 12
    end
    object qBankBPPOLUCHKPP: TIBStringField
      FieldName = 'BPPOLUCHKPP'
      Origin = '"BANK_PORUCH"."BPPOLUCHKPP"'
      Size = 12
    end
    object qBankBPPOKAZKBK: TIBStringField
      FieldName = 'BPPOKAZKBK'
      Origin = '"BANK_PORUCH"."BPPOKAZKBK"'
      Size = 255
    end
    object qBankBPOKATO: TIBStringField
      FieldName = 'BPOKATO'
      Origin = '"BANK_PORUCH"."BPOKATO"'
      Size = 255
    end
    object qBankBPPOKAZOSNOV: TIBStringField
      FieldName = 'BPPOKAZOSNOV'
      Origin = '"BANK_PORUCH"."BPPOKAZOSNOV"'
      Size = 255
    end
    object qBankBPPOKAZPERIODA: TIBStringField
      FieldName = 'BPPOKAZPERIODA'
      Origin = '"BANK_PORUCH"."BPPOKAZPERIODA"'
      Size = 255
    end
    object qBankBPPOKAZNOMERA: TIBStringField
      FieldName = 'BPPOKAZNOMERA'
      Origin = '"BANK_PORUCH"."BPPOKAZNOMERA"'
      Size = 255
    end
    object qBankBPPOKAZDATY: TIBStringField
      FieldName = 'BPPOKAZDATY'
      Origin = '"BANK_PORUCH"."BPPOKAZDATY"'
      Size = 255
    end
    object qBankBPPOKAZTIPA: TIBStringField
      FieldName = 'BPPOKAZTIPA'
      Origin = '"BANK_PORUCH"."BPPOKAZTIPA"'
      Size = 255
    end
    object qBankBPVIDOPLATY: TIBStringField
      FieldName = 'BPVIDOPLATY'
      Origin = '"BANK_PORUCH"."BPVIDOPLATY"'
      Size = 255
    end
    object qBankBPDATASPISANO: TIBStringField
      FieldName = 'BPDATASPISANO'
      Origin = '"BANK_PORUCH"."BPDATASPISANO"'
    end
    object qBankBPDATAPOSTUPILO: TIBStringField
      FieldName = 'BPDATAPOSTUPILO'
      Origin = '"BANK_PORUCH"."BPDATAPOSTUPILO"'
    end
  end
  object quBank: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  BPID,'
      '  BPNAME,'
      '  BPNUM,'
      '  BPDATE,'
      '  BPSUMMA,'
      '  BPPLATSCHET,'
      '  BPPOLUCHSCHET,'
      '  BPPLATINN,'
      '  BPPLAT1,'
      '  BPPLATBIK,'
      '  BPPLATBANK1,'
      '  BPPOLUCHINN,'
      '  BPPOLUCH1,'
      '  BPPOLUCHBIK,'
      '  BPPOLUCHBANK1,'
      '  BPNAZNACHPLAT,'
      '  BPSTATUSSOST,'
      '  BPPLATKPP,'
      '  BPPOLUCHKPP,'
      '  BPPOKAZKBK,'
      '  BPOKATO,'
      '  BPPOKAZOSNOV,'
      '  BPPOKAZPERIODA,'
      '  BPPOKAZNOMERA,'
      '  BPPOKAZDATY,'
      '  BPPOKAZTIPA,'
      '  BPVIDOPLATY,'
      '  BPDATASPISANO,'
      '  BPDATAPOSTUPILO'
      'from BANK_PORUCH '
      'where'
      '  BPID = :BPID')
    ModifySQL.Strings = (
      'update BANK_PORUCH'
      'set'
      '  BPDATAPOSTUPILO = :BPDATAPOSTUPILO,'
      '  BPDATASPISANO = :BPDATASPISANO,'
      '  BPDATE = :BPDATE,'
      '  BPID = :BPID,'
      '  BPNAME = :BPNAME,'
      '  BPNAZNACHPLAT = :BPNAZNACHPLAT,'
      '  BPNUM = :BPNUM,'
      '  BPOKATO = :BPOKATO,'
      '  BPPLAT1 = :BPPLAT1,'
      '  BPPLATBANK1 = :BPPLATBANK1,'
      '  BPPLATBIK = :BPPLATBIK,'
      '  BPPLATINN = :BPPLATINN,'
      '  BPPLATKPP = :BPPLATKPP,'
      '  BPPLATSCHET = :BPPLATSCHET,'
      '  BPPOKAZDATY = :BPPOKAZDATY,'
      '  BPPOKAZKBK = :BPPOKAZKBK,'
      '  BPPOKAZNOMERA = :BPPOKAZNOMERA,'
      '  BPPOKAZOSNOV = :BPPOKAZOSNOV,'
      '  BPPOKAZPERIODA = :BPPOKAZPERIODA,'
      '  BPPOKAZTIPA = :BPPOKAZTIPA,'
      '  BPPOLUCH1 = :BPPOLUCH1,'
      '  BPPOLUCHBANK1 = :BPPOLUCHBANK1,'
      '  BPPOLUCHBIK = :BPPOLUCHBIK,'
      '  BPPOLUCHINN = :BPPOLUCHINN,'
      '  BPPOLUCHKPP = :BPPOLUCHKPP,'
      '  BPPOLUCHSCHET = :BPPOLUCHSCHET,'
      '  BPSTATUSSOST = :BPSTATUSSOST,'
      '  BPSUMMA = :BPSUMMA,'
      '  BPVIDOPLATY = :BPVIDOPLATY'
      'where'
      '  BPID = :OLD_BPID')
    InsertSQL.Strings = (
      'insert into BANK_PORUCH'
      
        '  (BPDATAPOSTUPILO, BPDATASPISANO, BPDATE, BPID, BPNAME, BPNAZNA' +
        'CHPLAT, '
      
        '   BPNUM, BPOKATO, BPPLAT1, BPPLATBANK1, BPPLATBIK, BPPLATINN, B' +
        'PPLATKPP, '
      
        '   BPPLATSCHET, BPPOKAZDATY, BPPOKAZKBK, BPPOKAZNOMERA, BPPOKAZO' +
        'SNOV, BPPOKAZPERIODA, '
      
        '   BPPOKAZTIPA, BPPOLUCH1, BPPOLUCHBANK1, BPPOLUCHBIK, BPPOLUCHI' +
        'NN, BPPOLUCHKPP, '
      '   BPPOLUCHSCHET, BPSTATUSSOST, BPSUMMA, BPVIDOPLATY)'
      'values'
      
        '  (:BPDATAPOSTUPILO, :BPDATASPISANO, :BPDATE, :BPID, :BPNAME, :B' +
        'PNAZNACHPLAT, '
      
        '   :BPNUM, :BPOKATO, :BPPLAT1, :BPPLATBANK1, :BPPLATBIK, :BPPLAT' +
        'INN, :BPPLATKPP, '
      
        '   :BPPLATSCHET, :BPPOKAZDATY, :BPPOKAZKBK, :BPPOKAZNOMERA, :BPP' +
        'OKAZOSNOV, '
      
        '   :BPPOKAZPERIODA, :BPPOKAZTIPA, :BPPOLUCH1, :BPPOLUCHBANK1, :B' +
        'PPOLUCHBIK, '
      
        '   :BPPOLUCHINN, :BPPOLUCHKPP, :BPPOLUCHSCHET, :BPSTATUSSOST, :B' +
        'PSUMMA, '
      '   :BPVIDOPLATY)')
    DeleteSQL.Strings = (
      'null;')
    Left = 608
    Top = 168
  end
  object qChekBankNum: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qChekBankNumAfterInsert
    SQL.Strings = (
      'SELECT bp.BPID'
      'FROM BANK_PORUCH bp'
      'WHERE bp.BPNUM = :bpnum')
    GeneratorField.Field = 'BPID'
    Left = 528
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bpnum'
        ParamType = ptUnknown
      end>
  end
end
